﻿Imports MICROFORMA.BEL
Imports MICROFORMA.DAL

Public Class TypeDocBL
    Private TypedocDA As TypeDocDA = Nothing

    Public Sub New()
        TypedocDA = New TypeDocDA
    End Sub

    Public Function Add(ByVal TypeDocBe As TypeDocBE) As String
        Return TypedocDA.Add(TypeDocBe)
    End Function

    Public Function GetListAll() As DataTable
        Return TypedocDA.ListAll()
    End Function

    Public Function GetItem(ByVal idTypeDoc As Short) As DataTable
        Return TypedocDA.ListItem(idTypeDoc)
    End Function

    Public Function Update(ByVal TypeDocBe As TypeDocBE) As String
        Return TypedocDA.Update(TypeDocBe)
    End Function


End Class
